home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 52 / Amiga Format AFCD52 (Issue 136, May 2000).iso / -serious- / workbench / directoryopus4 / dopus4_src / config / screen_fonts.c < prev    next >
C/C++ Source or Header  |  2000-03-11  |  5KB  |  201 lines
  1. /*
  2.  
  3. Directory Opus 4
  4. Original GPL release version 4.12
  5. Copyright 1993-2000 Jonathan Potter
  6.  
  7. This program is free software; you can redistribute it and/or
  8. modify it under the terms of the GNU General Public License
  9. as published by the Free Software Foundation; either version 2
  10. of the License, or (at your option) any later version.
  11.  
  12. This program is distributed in the hope that it will be useful,
  13. but WITHOUT ANY WARRANTY; without even the implied warranty of
  14. MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  15. GNU General Public License for more details.
  16.  
  17. You should have received a copy of the GNU General Public License
  18. along with this program; if not, write to the Free Software
  19. Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA  02111-1307, USA.
  20.  
  21. All users of Directory Opus 4 (including versions distributed
  22. under the GPL) are entitled to upgrade to the latest version of
  23. Directory Opus version 5 at a reduced price. Please see
  24. http://www.gpsoft.com.au for more information.
  25.  
  26. The release of Directory Opus 4 under the GPL in NO WAY affects
  27. the existing commercial status of Directory Opus 5.
  28.  
  29. */
  30.  
  31. #include "config.h"
  32.  
  33. #define ABS(x) ((x)<0?-(x):(x))
  34.  
  35. initfontlist(num,move,flags)
  36. int num,move,flags;
  37. {
  38.     int a,b,dist=0,one,val,size=-1;
  39.     char name[80],*ptr;
  40.  
  41.     if (!fontlist) return(0);
  42.     if (!flags) fontlistview.items=fontlist;
  43.     else if (flags==FFLAG_8ONLY) fontlistview.items=only8list;
  44.     else if (flags==FFLAG_NOPROP) fontlistview.items=noproplist;
  45.     strcpy(name,config->fontbufs[num]);
  46.     if (ptr=strstri(name,".font")) *ptr=0;
  47.     for (a=0;;a++) {
  48.         if (!fontlistview.items[a]) break;
  49.         if (strcmp(name,fontlistview.items[a])==0) {
  50.             fontlistview.itemselected=a;
  51.             if (move) {
  52.                 if (a<fontlistview.topitem || a>fontlistview.topitem+7)
  53.                     fontlistview.topitem=a;
  54.             }
  55.             if (fontsizelist) {
  56.                 if (!flags) fontsizelistview.items=fontsizelist[a];
  57.                 else if (flags==FFLAG_8ONLY) fontsizelistview.items=only8sizelist;
  58.                 else if (flags==FFLAG_NOPROP) fontsizelistview.items=nopropsizelist[a];
  59.                 if (fontsizelistview.items) {
  60.                     one=-1;
  61.                     for (b=0;;b++) {
  62.                         if (!fontsizelistview.items[b]) break;
  63.                         if ((val=atoi(fontsizelistview.items[b]))==(int)config->fontsizes[num]) {
  64.                             fontsizelistview.itemselected=b;
  65.                             if (move) {
  66.                                 if (b<fontsizelistview.topitem ||
  67.                                     b>fontsizelistview.topitem+fontsizelistview.lines)
  68.                                     fontsizelistview.topitem=b;
  69.                             }
  70.                             one=-1;
  71.                             break;
  72.                         }
  73.                         else if (one==-1 || ABS((val-(int)config->fontsizes[num]))<dist) {
  74.                             dist=ABS((val-(int)config->fontsizes[num]));
  75.                             one=b;
  76.                         }
  77.                     }
  78.                     if (one!=-1) {
  79.                         if (version2) {
  80.                             size=config->fontsizes[num];
  81.                             lsprintf(fontsize_buf,"%ld",size);
  82.                             RefreshStrGad(&fontsizegadget,Window);
  83.                             fontsizelistview.itemselected=-1;
  84.                         }
  85.                         else {
  86.                             size=atoi(fontsizelistview.items[one]);
  87.                             fontsizelistview.itemselected=one;
  88.                             if (move) {
  89.                                 if (one<fontsizelistview.topitem ||
  90.                                     one>fontsizelistview.topitem+fontsizelistview.lines-1)
  91.                                     fontsizelistview.topitem=one;
  92.                             }
  93.                         }
  94.                     }
  95.                     else size=(int)config->fontsizes[num];
  96.                 }
  97.             }
  98.             break;
  99.         }
  100.     }
  101.     RefreshListView(&fontlistview,2);
  102.     if (size>-1) {
  103.         strcat(name,".font");
  104.         dofontdemo(name,size);
  105.     }
  106.     return(size);
  107. }
  108.  
  109. void sortfontlist(avail,num,type)
  110. struct AvailFonts *avail;
  111. int num,type;
  112. {
  113.     int gap,i,j,k;
  114.  
  115.     for (gap=num/2;gap>0;gap/=2)
  116.         for (i=gap;i<num;i++)
  117.             for (j=i-gap;j>=0;j-=gap) {
  118.                 k=j+gap;
  119.                 if (type==0) {
  120.                     if (LStrCmpI((char *)avail[j].af_Attr.ta_Name,
  121.                         (char *)avail[k].af_Attr.ta_Name)<=0) break;
  122.                 }
  123.                 else {
  124.                     if (LStrCmpI((char *)avail[j].af_Attr.ta_Name,
  125.                         (char *)avail[k].af_Attr.ta_Name)) break;
  126.                     if (avail[j].af_Attr.ta_YSize<=avail[k].af_Attr.ta_YSize) break;
  127.                 }
  128.                 SwapMem((char *)&avail[j],(char *)&avail[k],sizeof(struct AvailFonts));
  129.             }
  130. }
  131.  
  132. void dofontdemo(name,size)
  133. char *name;
  134. int size;
  135. {
  136.     struct TextFont *font;
  137.     struct Region *reg,*oldreg;
  138.     struct Rectangle clip;
  139.     char buf[2][256];
  140.     int y,c,l,a;
  141.  
  142.     clip.MinX=x_off+146;
  143.     clip.MinY=y_off+93;
  144.     clip.MaxX=x_off+611;
  145.     clip.MaxY=y_off+167;
  146.     Do3DBox(rp,
  147.         x_off+146,y_off+93,
  148.         468,76,
  149.         screen_pens[config->gadgetbotcol].pen,screen_pens[config->gadgettopcol].pen);
  150.     SetAPen(rp,screen_pens[0].pen);
  151.     RectFill(rp,x_off+146,y_off+93,x_off+613,y_off+167);
  152.     SetAPen(rp,screen_pens[1].pen);
  153.     busy();
  154.     UScoreText(rp,
  155.         cfg_string[STR_LOADING_FONT],
  156.         x_off+329,y_off+133,
  157.         -1);
  158.     if (font=getfont(name,&size,0)) {
  159.         SetAPen(rp,screen_pens[0].pen);
  160.         RectFill(rp,
  161.             x_off+146,y_off+94,
  162.             x_off+613,y_off+167);
  163.         SetAPen(rp,screen_pens[1].pen);
  164.         SetFont(rp,font);
  165.         if (reg=NewRegion()) {
  166.             OrRectRegion(reg,&clip);
  167.             oldreg=InstallClipRegion(Window->WLayer,reg);
  168.             l=255;
  169.         }
  170.         else l=464/font->tf_XSize;
  171.         y=font->tf_Baseline;
  172.         c='a';
  173.         for (a=0;a<256;a++) {
  174.             buf[0][a]=c++;
  175.             if (c=='{') c='0';
  176.         }
  177.         for (a=0;a<256;a++) {
  178.             if (isupper(buf[0][a])) buf[1][a]=tolower(buf[0][a]);
  179.             else buf[1][a]=toupper(buf[0][a]);
  180.         }
  181.         a=0;
  182.         while (y<76+font->tf_Baseline) {
  183.             Move(rp,x_off+148,y+y_off+94);
  184.             Text(rp,buf[a],l);
  185.             a=a?0:1;
  186.             y+=font->tf_YSize;
  187.         }
  188.         if (reg) {
  189.             InstallClipRegion(Window->WLayer,oldreg);
  190.             DisposeRegion(reg);
  191.         }
  192.         SetFont(rp,tfont);
  193.         CloseFont(font);
  194.     }
  195.     else UScoreText(rp,
  196.         cfg_string[STR_FONT_COULD_NOT_BE_LOADED],
  197.         x_off+289,y_off+133,
  198.         -1);
  199.     unbusy();
  200. }
  201.